CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_13815.txt

Text File | 1990-10-02 | 7KB | 319 lines

-- card: 13815 from stack: in.03 –µ–µ–µ
-- bmap block id: 5738
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,sDoorOpen,eDoorOpen,ladderHole,chase,blasting
  if direction = "south" then
    if sDoorOpen then
      go to card id 33443
      exit move
    else
      beep
      put "The door is locked!" into field 3
      exit move
    end if
  end if
  if direction = "east" then
    if eDoorOpen then
      if ladderHole then
        go to card id 30264
        exit move
      else
        go to card id 6984
        exit move
      end if
    else
      beep
      put "The door is locked!" into field 3
      exit move
    end if
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried,sDoorOpen,eDoorOpen
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="key" then
    put "Both doors are now unlocked and you may pass through." into field 3
    put true into sDoorOpen
    put true into eDoorOpen
    exit use
  end if
  -- update carried if use results in loss of object
  pass use
end use




-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=94 top=232 right=268 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=94 top=197 right=233 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=27 top=206 right=242 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=72 top=111 right=147 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=128 top=132 right=168 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=149 top=182 right=218 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=27 top=93 right=148 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a tunnel leading east" into field 3
    put false into examFlag
  else
    put "east" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=154 top=59 right=101 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,sDoorOpen,demonDead,takeFlag
  if examFlag then
    put "A barred door leading south into the great chamber." into field 3
    if sDoorOpen
    then put "  The door is unlocked!" after field 3
  else put "  The door is locked!" after field 3
  put false into examFlag
else
  if takeFlag then
    put "You can't take the door." into field 3
    put false into takeFlag
  else
    put "south" into direction
    send move to card id cardID
  end if
end if
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=185 top=172 right=218 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Yeech!  You don't want demon slime on a granite block.  It's not even tasty stuff." into field 3
    put false into takeFlag
    exit mouseUp
  end if
  put "Demon slime on a granite block.  Pretty disgusting." into field 3
  put false into examFlag
end mouseUp



-- part contents for background part 25
----- text -----
Treasure Room
(looking south)

-- part contents for background part 24
----- text -----
You are in the treasure room.  Exits are south and east:  Both doorways have doors made of massive iron bars.  There is a patch of black demon slime here.


-- part contents for background part 36
----- text -----
1